(menu-bar-tools-menu): Add a "send mail" entry.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 6f44121b1f596b2af9eff3bbcae8e4789957e90a..c670e1ace41b07bf6c55fb828a4a7061043350d8 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -68,6 +68,7 @@ A large number or nil slows down menu responsiveness.")
   '("--"))
 
 (define-key menu-bar-tools-menu [calendar] '("Display Calendar" . calendar))
+(define-key menu-bar-tools-menu [rmail] '("Send Mail" . compose-mail))
 (define-key menu-bar-tools-menu [rmail] '("Read Mail" . rmail))
 (define-key menu-bar-tools-menu [gnus] '("Read Net News" . gnus))